ROBLOX

UltraHaunted2230 is always inventing gnarly levels at this really cool player-made game I found

tets

#|
Most uses will want to just do user/password. In this case, define
an authentication function like:

(defun auth-user-pw (user pw)
(... return non-nil to indicate success ...))

...

(yield (make-login #'auth-user-pw))

email: sohail/@/taggedtype.net if you have any questions

|#
(defun make-login (auth-method)
(make-instance 'login
:auth-method auth-method))

(defwidget login (weblocks:composite)
((auth-method
:accessor login-auth-method
:initarg :auth-method)))

(defwidget login-form (weblocks:dataform)
())

(defmethod initialize-instance :after ((self login)
&rest args
&key auth-method
(login-title "Login")
&allow-other-keys)
(declare (ignore args))
(setf (widget-name self) "login-composite")
(when (functionp auth-method)
(setq auth-method
(make-instance 'default-auth-method :auth-fn auth-method)))
(setf (composite-widgets self)
(list (lambda () (with-html (:h1 (str login-title))))
(make-instance 'login-form
:name 'loginform
:data auth-method
:ui-state :form
:allow-close-p nil
:widget-args '(:persist-object-p nil)
:on-success
(lambda (&rest args)
(declare (ignore args))
(answer self (slot-value auth-method 'result)))))))

(defclass auth-method ()
(result))

(defun authenticate (method)
(let ((result (auth-method-authenticate method)))
(if result
(progn
(tbnl:log-message* "Successful authentication")
(setf (slot-value method 'result) result)
(values t nil))
(progn
(tbnl:log-message* "Failed authentication: ~A" method)
(values nil '(("Authentication failed" "Authentication failed")))))))

;;; Weblocks hooks
(defmethod weblocks:update-object-from-request :around ((method auth-method)
&rest args)
(multiple-value-bind (success failed-slots)
(call-next-method)
(if success
(authenticate method)
(values success failed-slots))))

(defmethod weblocks:render-form-controls ((obj auth-method)
&rest keys
&key action
&allow-other-keys)
(with-html
(:div :class "submit"
(render-button *submit-control-name* :value "Login"))))

;;; AUTH-METHOD GENERIC
(defgeneric auth-method-authenticate (auth-method)
(:documentation "Return a generalized boolean to indicate
whether the values provided authenticate a user."))

(defmacro def-auth-method (name &body body)
"A macro used to define authentication methods."
`(defclass ,name (auth-method)
,@body))

;;; DEFAULT-AUTH-METHOD
(def-auth-method default-auth-method
((login
:initarg :login
:accessor default-auth-method-login
:type string
:initform nil)
(password
:initarg :password
:accessor default-auth-method-password
:type password
:initform nil)
(auth-fn
:initarg :auth-fn)))

(defmethod auth-method-authenticate ((dam default-auth-method))
(with-slots (auth-fn login password) dam
(funcall auth-fn login password)))

SORRYY!!!!! I am so sorry for not posting lately im busy!

Hey Guys,

So have you guys heard about Webosaurs.com yet? It’s the coolest thing
I’ve seen in a long time!

Basically, it’s a new virtual world where your avatar is a dinosaur and
you can play awesome games, battle each other in multi-player games, and
you even have your own room (cave). When you play games and take
quizzes, you win points and coins, and you use those coins to buy stuff
to pimp your cave. It looks like you can play Webosaurs for FREE , or
if you can convince your parents to upgrade to the premium membership,
you’ll get a bunch of special stuff that regular members don’t get.

They also have a bunch of special “scolls” hidden around the island, and
if you find them, you unlock new parts of the island. And unlocking
new “landscapes” is great because there’s different games in each one,
including battle fights with other dinosaurs and sweet quizzes where you get
lots of info about dinos and volcanos and all that good stuff.

One of my favorite finds are the videos from animal expert, Nigel Marven
- he’s the guy on the Discovery Channel, National Geographic Channel,
and Animal planet that does the videos with animals and dinos. There’s
bunches of videos around Webosaurs Island that have him playing with
tigers, crocodiles, snakes, bats – you name it! That dude rocks!

Everyone who loves games, dinosaurs, and awesome graphics should check
it out – I’m going to be spending lots of time there so come find me for a tour and some awesome tips to exploring the world.

The link to Webosaurs is:

http://beta.webosaurs.com

Then just click ”Explore Now!” , then to the left it will say ”Click here to begin your adventure!” Then you will click it and then you will sign up for an account.
-pinkgirlcpst
PS- This game is brand new and you can get a lot of cool names! Be sure to register!
I even made a site with ancient! webosaurshelp.wordpress.com
PSS – Open chat problems? Step by step instructions here: http://www.webosaurscheats.net/how-do-i-get-open-chat/

JK JK just edit lol

wasnt that weird i editted and its a mod!

My newest account!